procedure TForm1.Button1Click(Sender: TObject);
begin
   WinExec('calc.exe',SW_SHOWNORMAL);
end;
